object FormPersonal: TFormPersonal
  Left = 468
  Top = 289
  BorderStyle = bsSingle
  Caption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
  ClientHeight = 297
  ClientWidth = 582
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 8
    Top = 8
    Width = 110
    Height = 19
    Caption = 'C'#1086#1090#1088#1091#1076#1085#1080#1082#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'DejaVu Sans'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 64
    Width = 561
    Height = 177
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'FIO'
        Title.Caption = #1060#1048#1054
        Width = 349
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name_type'
        Title.Caption = #1058#1080#1087' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
        Width = 177
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 248
    Width = 550
    Height = 25
    DataSource = DataSource1
    TabOrder = 1
    BeforeAction = DBNavigator1BeforeAction
  end
  object pFIBDataSetPersonal: TpFIBDataSet
    UpdateSQL.Strings = (
      '')
    RefreshSQL.Strings = (
      '')
    SelectSQL.Strings = (
      'select * from personal')
    AutoUpdateOptions.UpdateTableName = 'PERSONAL'
    AutoUpdateOptions.KeyFields = 'ID'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.GeneratorName = 'GEN_PERSONAL_ID'
    AutoUpdateOptions.UpdateOnlyModifiedFields = True
    AutoUpdateOptions.WhenGetGenID = wgOnNewRecord
    AutoCalcFields = False
    AfterInsert = pFIBDataSetPersonalAfterInsert
    Transaction = DataModule_tms.pFIBTransaction_tms
    Database = DataModule_tms.pFIBDatabase_tms
    AutoCommit = True
    Left = 392
    Top = 16
    object pFIBDataSetPersonalID: TFIBBCDField
      FieldName = 'ID'
      Size = 0
      RoundByScale = True
    end
    object pFIBDataSetPersonalF: TFIBStringField
      FieldName = 'F'
      Size = 200
      EmptyStrToNull = True
    end
    object pFIBDataSetPersonalI: TFIBStringField
      FieldName = 'I'
      Size = 100
      EmptyStrToNull = True
    end
    object pFIBDataSetPersonalO: TFIBStringField
      FieldName = 'O'
      Size = 100
      EmptyStrToNull = True
    end
    object pFIBDataSetPersonalFIO: TFIBStringField
      FieldName = 'FIO'
      Size = 200
      EmptyStrToNull = True
    end
    object pFIBDataSetPersonalDRIVER_LIC: TFIBStringField
      FieldName = 'DRIVER_LIC'
      Size = 50
      EmptyStrToNull = True
    end
    object pFIBDataSetPersonalDRIVER_CAT_A: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_A'
      KeyFields = 'ID'
    end
    object pFIBDataSetPersonalDRIVER_CAT_B: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_B'
    end
    object pFIBDataSetPersonalDRIVER_CAT_C: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_C'
    end
    object pFIBDataSetPersonalDRIVER_CAT_D: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_D'
    end
    object pFIBDataSetPersonalDRIVER_CAT_E: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_E'
    end
    object pFIBDataSetPersonalDRIVER_CAT_BE: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_BE'
    end
    object pFIBDataSetPersonalDRIVER_CAT_CE: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_CE'
    end
    object pFIBDataSetPersonalDRIVER_CAT_DE: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_DE'
    end
    object pFIBDataSetPersonalID_TYPE_PERSONAL: TFIBBCDField
      FieldName = 'ID_TYPE_PERSONAL'
      OnChange = pFIBDataSetPersonalID_TYPE_PERSONALChange
      Size = 0
      RoundByScale = True
    end
    object pFIBDataSetPersonalname_type: TStringField
      FieldKind = fkLookup
      FieldName = 'name_type'
      LookupDataSet = pFIBDataSetTypePersonal
      LookupKeyFields = 'ID'
      LookupResultField = 'NAME_TYPE'
      KeyFields = 'ID_TYPE_PERSONAL'
      Size = 40
      Lookup = True
    end
  end
  object DataSource1: TDataSource
    DataSet = pFIBDataSetPersonal
    Left = 64
    Top = 104
  end
  object pFIBDataSetTypePersonal: TpFIBDataSet
    RefreshSQL.Strings = (
      
        'select * from type_personal where id_type_personal=:id_type_pers' +
        'onal')
    SelectSQL.Strings = (
      'select * from type_personal')
    Transaction = DataModule_tms.pFIBTransactionLookup
    Database = DataModule_tms.pFIBDatabase_tms
    Left = 96
    Top = 104
    object pFIBDataSetTypePersonalID: TFIBBCDField
      FieldName = 'ID'
      Size = 0
      RoundByScale = True
    end
    object pFIBDataSetTypePersonalNAME_TYPE: TFIBStringField
      FieldName = 'NAME_TYPE'
      Size = 100
      EmptyStrToNull = True
    end
  end
end
